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Objectives 


ifikQCtSl 


Describe  packages  and  list 


possible 


components^  -  -  r^r^CT^^^f^ 

Create  a  package  to  group  together  related 
variables,  cursors,  constants,  exceptions, 
procedures,  and  functions 

Designate  a  package  construct  as  either 
public  or  private 


Invoke  a  package  construct  "^5^ 
Describe  a  use  for  a  bodiless  package 
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Overview  of  Packages 


Packages: 

Group  logically  related  PL/ SQL  types,  items, 
and  subprograms  At 

Consist  of  two  parts: 

Specification 

Body 

Cannot  be  i 


El 


,  parameterized,  or  nested 


Allow  the  Oracle  server  to  read  multiple  objects 

into  memory  at  once 

/ 
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Components  of  a  Package 


Package 
specification 


Procedure  A 
declaration 


Public  variable 


Public  procedure 


Package 
body 


Procedure  B 
definition 


Private  variable 


Private  procedure 


Procedure  A 
Definition 

Local  variable 

Public  procedure 
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Creating  the  Package  Specification 


CREATE  [OR  REPLACE]  PACKAGE 
package_name 
IS  |  AS 

public  type  and  item  declarations 
subprogram  specifications 
END  package_name; 


The  REPLACE  option  drops  and  recreates  the 
package  specification.  >\ 
Variables  declared  in  the  package  specification  are 

initialized  to  NULL  by_dra^jfdt.A  

All  the  constructs  declared  in  a  package 
specification  are  visible  to  users  who  are  granted 
privileges  on  the  package  ^ — -\-  \ 
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Declaring  Public  Constructs 


COMM.PACKAGE  package 


Package 
specification 


Procedure  declaration 
RESET  COMM 


\  \  \ 
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Creating  a  Package  Specification:  Example 


CREATE  OR  REPLACE  PACKAGE  comm_package 
IS 

g_comm  NUMBER  :=  0.10;  --initialized  to  0.10 
PROCEDURE  reset_comm 
(p.comm  IN  NUMBER); 
END  comm_package; 

/ 


G_COMM  is  a  global  variable  and  is  initialized 

to  0.ldfA^_  /  \ 


RESET_COMM  is  a  public  procedure  that  is 
implemented  in  the  package  jiody.  V 


\  \  \ 
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Public  and  Private  Constructs 


COM M_PAC KAG E  package 


Package 
specification 


RESET_COMM 
procedure  declaration 


VALIDATE_COMM 
function  definition 


RESET_COMM 
procedure  definition 


Copyright  ©  CD  AC-ACTS 


8 


Advanced  Computing  Training  School  (ACTS)  ift  <S>cp"    Af  ^Tcf^T 

Advanced  Computing  for  Human  Advancement  CDflC  JtS^.  O  C  t  S 

Creating  a  Package  Body:  Example 

CREATE  OR  REPLACE  PACKAGE  BODY  comm  package 
IS 

FUNCTION  validate_comm  (p_comm  IN  NUMBER) 
RETURN  BOOLEAN 
IS 

v  max  comm  NUMBER; 
BEGIN 

SELECT  MAX(comm) 

INTO  v  max  comm 

FROM  emp; 

IF  p  comm  >  v  max  comm  THEN  RETURN(FALSE); 

ELSE  RETURN(TRUE); 
END  IF; 
END  validate  comm; 

•  •  • 
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Creating  a  Package  Body:  Example 


PROCEDURE  reset_comm  (p_comm  IN  NUMBER) 
IS 

BEGIN 

IF  validate_comm(p_comm) 

THEN  g  comm:=p  comm;  —reset  global  variable 
ELSE 

RAISE_APPLICATION_ERROR(-20210,'Invalid 
commission'); 

END  IF; 

END  reset_comm; 
END  comm_package; 
/ 
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Invoking  Package  Constructs 


Example  :  Invoke  a  function  from  a  procedure  within  the 
sair^e  p^ 


CREATE  OR  REPLACE  PACKAGE  BODY  comm_package 
IS 

■  ■  ■ 

PROCEDURE  reset_comm 

(p_comm  IN  NUMBER) 

IS 
BEGIN 

IF  validate_comm(p_comm) 
THEN  g  comm  :=  p  comm; 


RAISE_APPLICATION_ERROR 
(-20210,  'Invalid  commission1); 
END  IF; 

END  reset_comm; 
END  comm_package; 
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Declaring  a  Bodiless  Package 


CREATE  OR  REPLACE  PACKAGE  global,  vars  IS 

mile_2_kilo  CONSTANT  NUMBER  :=  1.6093; 

kilo_2_mile  CONSTANT  NUMBER  :=  0.6214; 

yard_2_meter  CONSTANT  NUMBER  :=  0.9144; 

meter_2_yard  CONSTANT  NUMBER  :=  1.0936; 
END  global_vars; 

/ 

EXECUTE  DBMS_OUTPUT.PUT_LINE(  20  miles  =  '  |  1 20* 
global_vars.mile_2_kilo  |  | '  km') 
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Referencing  a  Public  Variable  from  a  Procedure 


CREATE  OR  REPLACE  PROCEDURE  meter_to_yard 
(p_meter  IN  NUMBER,  p_yard  OUT  NUMBER) 
IS 

BEGIN 

p_yard  :=  p_meter  *  global_vars.meter_2_yard; 
END  meter_to_yard; 

/ 

declare 

yard  NUMBER  :=  1; 
begin 


meter  to  yard  (1,  yardj; 
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Removing  Packages 


To  remove  the  package  specification  and  the 
body,  use  the  following  syntax: 

DROP  PACKAGE  package_name; 

To  remove  the  package  body,  use  the  following 
syntax: 

DROP  PACKAGE  BODY  package_name; 
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Guidelines  for  Developing  Packages 


Construct  packages  for  general  use.  ^^^^^^ 
Define  the  package  specification  before  the  body. 
The  package  specification  should  contain  only 

those  constructs  that  you  want  to  be  public. 
The  package  specification  should  contain  as  few 
constructs  as  possible. 


Also  avoid  writing  packages  that  duplicate 

features  provided  by  Oracle. 

v 


\  \  \ 
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Advantages  of  Packages 


Modularity:  Encapsulate  related  constructs. 

Easier  application  design:  Code  and  compile 
specification  and  body  separately.  ~ ^S^^ 

Only  the  declarations  in  the  package 
specification  are  visible  and  accessible  to 
applications. 


/ 

Private  constructs  in  the  package  body  are 
and  inaccessihlK^ T^^\ 


All  coding  is 


in  the  package  body. 


1  V 
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Advantages  of  Packages 


Persistency  of  variables  and  cursors 
Better  performance 

The  entire  package  is  loaded  into  memory 
when  the  package  is  first  referenced. 
There  is  only  one  copy  in  memory  for  all  users. 
The  dependency  hierarchy  is  simplified. 
Overloading:  Multiple  subprograms  of  the 
same  name 
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Summary 


Improve  organization,  management,  security,  and 
performance  by  using  packages^^-^^:^^^^^ 

Group  related  procedures  and  functions  together 

in  a  package  ^  01  ^^^(^^I^^^^v 

—  Change  a  package  body  without  affecting  a 


package  specification  ^  f^O%^^i 
Hide  the  source  code  from  users 
Load  the  entire  package  into  memory  on  the 
fi xst  csB|wC_^    /        J^-_  \ 
Reduce  disk  access  for  subsequent  calls 
Provide  identifiers  for  the  user  session 
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